home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / Misc Servers / Hamster.EXE / HType.vbs < prev    next >
Encoding:
Text File  |  1999-04-25  |  830 b   |  37 lines
  1. 'WSH-Script: HType.vbs
  2.  
  3. 'Get commandline-paramters
  4. Set objArgs = Wscript.Arguments
  5. If objArgs.Count<1 Then
  6.    Wscript.Echo "Usage: cscript htype.vbs groupname"
  7.    Wscript.Quit
  8. Else
  9.    GroupName = objArgs(0)
  10. End If
  11.  
  12. 'Inititalize Hamster-object
  13. Set Hamster = Wscript.CreateObject( "Hamster.App" )
  14.  
  15. 'Open group
  16. GrpHdl = Hamster.NewsGrpOpen( GroupName )
  17. If GrpHdl>=0 Then
  18.  
  19.    'Loop through all available articles
  20.    For ArtNo=Hamster.NewsArtNoMin(GrpHdl) To Hamster.NewsArtNoMax(GrpHdl)
  21.       'Get article and print it
  22.       ArticleText = Hamster.NewsArtText( GrpHdl, ArtNo ) 
  23.       Wscript.Echo ArticleText
  24.    Next
  25.  
  26.    'Close files
  27.    Hamster.NewsGrpClose( GrpHdl )
  28.  
  29. Else
  30.  
  31.    Wscript.Echo "Could not open group " + GroupName + "!"
  32.  
  33. End If
  34.  
  35. 'Release Hamster-object
  36. Wscript.DisconnectObject Hamster
  37.